##  descriptive statistics for Rottleuthner data: TABLE 1
rm(list = ls())

library(Hmisc)
#setwd("/Users/holgerkern/Dropbox/Current projects/Nazi trials/Rottleuthner data")
load("Nazi trials replication data Table of population totals.RData")



## add additional rows and cols for totals
d2 <- cbind(d2,NA)
colnames(d2) <- c("Before 1933","1933--45","After 1945","Total")

d2 <- rbind(d2,NA)
rownames(d2) <- c("Before 1933","1933--45","After 1945","Total")

d2[1:3,4] <- apply(d2[1:3,1:3],1,sum)
d2[4,1:3] <- apply(d2[1:3,1:3],2,sum)
d2[4,4] <- sum(d2[1:3,1:3])


d2
latex(d2, file = "")


sessionInfo()



.
